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ccccccce 000000 NN NN VV VV EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 RRRRRRRR 
cccccccc 000000 NN NN VV VV EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 RRRRRRRR 

cc 00 00 NN NN VV vv EE RR RR RR RR 00 OO RR RR 

cc 00 00 NN NN VV vv EE RR RR RR RR 00 OO RR RR 

cc 00 00 NNNN NN VV vy EE RR RR RR RR 00 OO RR RR 

cc 00 00 NNNN NN VV vv EE RR RR RR RR 00 0O RR RR 

cc 00 O00 NN NN NN VV VV EEEEEEEE RRRRRRRR RRRRRRRR 00 00 RRRRRRRR 

cc 00 OO NN NN NN VV VV EEEEEEEE RRRRRRRR RRRRRRRR 00 00 RRRRRRRR 

cc 00 00 NN NNNN VV vv EE RR RR RR RR 00 OO RR RR 

cc 00 00 NN NNNN VV vv EE RR RR RR RR 00 OO RR RR 

cc 00 00 NN NN vv VV EE RR RR RR RR 00 0O RR RR cece 
cc 00 00 NN NN vv VV EE RR RR RR RR 00 0O RR RR eoee 
cccccccc 000000 NN NN vv EEEEEEEEEE RR RR RR RR 000000 RR RR eoee 
cccccccc 000000 NN NN vv EEEEEEEEEE RR RR RR RR 000000 RR RR eeee 
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VAK=11 CONVERT 1-5 “1984 23:55:37 AX-11 Bliss-32 V4.0-74 
14-Sep-19 “ 13:73:85 CONV. SRCJEON JERROR. aso 


ZTITLE ‘VAX=11 CONVERT’ 
MODULE CONVSERROR ‘ IDENT="V04-000" 
= 


BEGIN 


lSReReeHeAAAAAHAAAAAAHAAAHAHKEKEHHHHHHHKHKeeeHeeeeeKeeeeReeKeReneeKeReeeeese 
! 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED ues a‘. LICENSE oe MAY BE USED AND gd Lt 
ONLY IN ACCORDANCE Wi MS OF LICENSE AND WITH THE 


WEARERS 


3 tt ne a a ee et i a a a i 9 KOE 
- - 
+ 


& 
* 
* 
® 
* 
* 
® 
* 
; S I E sd 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!@ TRANSFERRED. ® 
. * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
af 
® 
af 
* 
& 
® 
& 


'® AND re NOT BE CONSTRUED AS A COMNITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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VAK=-11 CONVERT 15-Sep-1984 $3:33:3¢ AX-11 Bliss-32 V4.0-742 
14-Sep-19 13:53 CONV. SRCICONVERROR .B32;1 
9 1 tee 
1! 
: } Facility: VAX=11 CONVERT 
; : Environment: 
5 ! ; VAX/VMS Operating System 
! Abstract: 
00 ; ; CONVERT error handeling routines 
Oot 1 § Contents: 
ek 1! RMS_ERROR 
Bye 1! RMS_OPEN_ERROR 
044 1! RMS~READ ERROR 
0045 1! 
Boee 1 te 
0047 1 
0048 1! 
sr : } Author: Keith B Thompson Creation Date: September-1981 
0051 1: 
8036 1 ! Modified by: 
0055 1! 
0054 1! v03-001 RASO273 Ron Schaefer 19-Mar-1984 
3033 +! Fix CONVSSRMS_ERROR to have the correct signal arguments 
ope ; in order to return decent error messages. 
0058 1 ieee 


voe~000 


VAK=11 CONVERT 


5 


RARY 'SYSSLIBRARY:1 18°; 


18 
EQUIRE *SRCS:CONVERT’; 


STRING_DESC 


: DESC_BLK; 


1$-sep-19 
12-Sep-19 


Be 93: 


5 
1 


3:3 


7 
3 


AX-11 BL 
CONV. SRC 


ss-32 V4.0-742 
CONVERROR.B32; 1 


i 


Mm 4 
id * VAX=11 CONVERT 127808= 1982 93:33: 3 Bey! eh lean ve ,Onrse 


CONVSSRMS_ERROR “$ 1 3 CONV.SR NVERROR.832;1 
3 9 1 ZSBTTL ‘CONVSSRMS_ERROR’ 
; 10 : ! GLOBAL ROUTINE CONVSSRMS_ERROR : NOVALUE = 
: 7 ii 
: 6 0% : Functional Description: 
=. 88 1 i This routine will signal and rms error and stop execution. It is 
; f 4 : to be primarly used for detecting errors during asynchronous operations 
; 0309 1 | Calling Sequence: 
; 10 1! 
; Bi 1 ' This routine is call as an AST by RMS 
; 5 18 : Input Parameters: 
; Be 9 1g : AST argument block which has a pointer to a rms block 
; 86 0317 1 Implicit Inputs: 
28 oe as tis 
:; «89 $3 0 1 | Output Parameters: 
Ob 455 | ee 
: 9 0 1! Implicit Outputs: 
38 gus 1 eet + pee 
; 95 03 8 ; Routine Value: 
; 39 $35 1: 
5 oS b385 } } Routines Called: 
: 100 0531 1 SIGNAL 
3 13) 83 ¢ : SIGNAL_STOP 
; 108 $382 1 | Side Effects: 
: 1046 0335 1! none 
; 105 9338 1! 
: 409 $338 1 
; 108 0359 BEGIN 
; 110 0341 BUILTIN AP; 
: He Erk BIND 
; 118 b3ca AST_BLOCK = AP : REF VECTOR C ,LONG ); 
fos ae CAL 
; 116 b3e9 RMS_BLOCK : REF BLOCK C .BYTE J, 
348 FAB : REF BLOCK BYTE J, 
3 118 4 NAM : REF BLOCK C: ,BYTE J; 
; \’ Bee) : Get the rms block (Pointed to by the second ast parameter) 
; 132 Ne RMS_BLOCK = .AST_BLOCK C 1); 
3 134 tH If this is really a RAB (from a connect) then get the fab it points to 


e3 
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VAK=11 CONVERT | 15-Sep-1984 23:55:37 YAX-11 8 
CONVSSRMS ERROR 27808-1984 $3:93:8 


=PINIPIRIPPINPIPONINI WWIII WIN WIWItrnnyd 


Liss-32 vs.0-74 
§ POON SREIESNUERMOR BSos1 


1 
A -RMS_BLOCK C RABSB_BID J EQLU RABSC_BID 
a = .RMS_BLOCK C RABSL_FAB J 
FAB = .RMS_BLOCK; 
Get the name block 
NAM = .FAB C FABSL_NAM J; 
Signal the CONVert error with the best file name string 
First try the resultant string 
if .NAM C NAMSB_RSL J] NEQU 0 
THEN 
BEGIN 
STRING_DESC ' DSC$W_LENGTH ] = .NAM C_NAMSB_RSL J; 
STRING-DESC C DSCSA-POINTER J = .NAM C NAMSC_RSA 3 
Next try the expanded string 
ELSE IF .NAM C NAMSB_ESL ) NEQU 0 
THEN 


J_= .NAM C_NAMSB_ESL J: 
R J = .NAM C NAMSC_ESA } 


m= 


G_DESC f DSCSW_LENGTH ] = .FAB C _FABSB_FNS J: 

G"DESC C DSCS$A~POINTER ] = .FAB C FABSC_FNA } 

NOTE: We use the RAB$x_zzz codes but they are valid for the FAB as well 
Signal the CONVert error, RMS error and stop 

SIGNAL_STOP( .RMS_BLOCK RABSL_CTX especie 


“RMS-BLOCK [ RABSL“STS }. 
TRMS"BLOCK £ RABSL~STV 3°) 


END; 
TITLE oo the VAX=-11 CONVERT 
-IDENT \v04-000\ 
-PSECT SOWNS,NOEXE,2 


00000 STRING_DESC: 
-BLKB 8 


Page 


a 


5 
C RROR VAK=11 CONVERT 18-52 “19 :55: AX=-11 Bliss-32 V4.0-7462 
CONVSSRMS_ERROR 12-88-1938 93:33 :8 CONV. SRCJCONVERROR.832;1 
-PSECT SCODES,NOWRT,2 
009¢ .ENTRY CONVSSRMS_ERROR, Save R2,R3 
0000" CF 3 ° MOVAB STRING_DESC, R3 
Ac p MOVL  4CAST_BLOCKS, RMS_BLOCK 
4 8 oe cree (RMS BLOCK), #1 
51 ae 06 ° 1 MOVL eB ams sock), FAB 
9 14 BRB $ 
3} Dd ° 16 i$ MOVL RMS_BLOCK, FAB 
0 38 A p 1 MOVL 40(FAB), NAM 
AO 001D TSTB (NAM) 
6 3 ; § 2 Sov eew tNAN) STRING_DESC 
04 $3 be A Hi $0 MOVL 4(NAM), STRING_DESC+4 
1 11 88 8 BRB 5$ 
0B a0 3 020 3$ TSTB 11 (NAM) 
0B 13 000 BEQL 4$ 
6 0B OA 00 MOVZBW 11(NAM), STRING_DESC 
06 =A 0¢ ad 00 000 MOVL Le(NAM) STRING_DESC+4 
09 11 00038 BR8 : 
6 6 al 4 0030 4$ MOV7ZBW 52(FAB), STRING_DESC 
06 A C (Al p 0041 MOVL 44(FAB), STRING DESC+4 
7E 8 A D 00046 5$ mova 8(RMS_BLOCK), -TSP) 
53 DD 0004A PUSHL R3 
01 DD 0004C PUSHL #1 
18 A2 DD 0004E PUSHL 24(RMS BLOCK) 
000000006 00 05 FB 00051 CALLS #5, LIBSSTOP 
04 00058 RET 


; Routine Size: 89 bytes, Routine Base: S$CODE$ + 0000 


; 173 0404 1 
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Saddam NEREHOM CERES aah 


ZSBTTL ‘CONVSSRMS OPEN ERROR’ 
GLOBAL ROUTINE CONVSSRAS_OPEN_ERROR : NOVALUE = 


s-32 
vE 


is v4.0-7 
CONV. SRC ICON OR .B3 


aves 2 Page 


4 
2;1 


Functional Description: 


This poy bw. wilt signal an rms error and stop execution. It is 
to be primarly used for detecting errors during file opens. 


! Calling Sequence: 
This routine is call as an AST by RMS 
Input Parameters: 


+ es 4 5 2 a 


—— 
AE UNI HO DOs NOP OOO NAME ODe a 


AST argument block which has a pointer to a FAB 
Implicit Inputs: 
none 


Output Parameters: 
none 

Implicit Outputs: 
none 

Routine Value: 


none 


Routines Called: 


PDIP IIIA et st st st tt tt kt kk kk tk tk th ho ot 


SSSSVERRGALSSHVSARUW=SSSLESRANLS SSLESRAN LSE SSISALAVIS SSSA 


RRRRLRRLRRLLEERRERRRRRRRRRRRERRRRRRRRRRR RRR REE EEE 


Get the rms block (Pointed to by the second ast parameter) 
RMS_BLOCK = .AST_BLOCK C 1 J; 
! If this is really a RAB (from a connect) then get the fab it points to 


RIPIPIPOPINOPIPINPPINIPYINDNINPPINIR @ 9 i tk at at = 


Be Be Be Oe Be Se Oe Se Be Oe Ge Be Se Se Be Se Ge Se Be Se Se Se Se Ge Se Se Ge Se Ge Se Ge Ge Se Se Ge Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Se ee 


SIGNAL 
3 SIGNAL _STOP 
$ Side Effects: 
40 none 
‘} 
28 
44 BEGIN 
45 
r4 BUILTIN 
4 AP; 
§ BIND 
? AST_BLOCK = AP : REF VECTOR C ,LONG J; 
§ LOCAL 
RMS_BLOCK : REF BLOCK C ,BYTE J, 
4 FAB : REF BLOCK BYTE J, 
j : REF BLOCK C ,BYTE 
0 
1 


PO MMAMAMNMNII & & 


RERRRRES 


5 

SQeeSSS™ HAL SOE ano iEiecsaee GEGEHE WASTAGE? 
i PMS BLOCK C RABSB_BID ) EQLU RABSC_BID 
ass’ = .RMS_BLOCK C RABSL_FAB J 

FAB = .RMS_BLOCK; 
: Get the name block 
NAM = .FAB C FABSL_NAM ]; 
: Signal the CONVert error with the best file name string 
} First try the resultant string 


if .NAM C NAMSB_RSL } NEQU 0 
THEN 


VEEP PLL LEE 

oO WP a = w 

teeneececeiel 5 APAAAAO 
PP Pe a ey 


EGIN 
STRING_DESC f DSCSW_LENGTH ] = .NAM [ NAMSB_RSL J; 
s DSCSA 


; 80 

; 3 0481 STRING_DESC “POINTER J] = .NAM C NAMSC_RSA 9 
: $28 HE - 

3 $2 es : Next try the expanded string 

3 23 ELSE IF .NAM C NAMSB_ESL J] NEQU 0 

3; @ 8 THEN 

3 58 488 BEGIN 

3 59 0489 STRING_DESC DSCSW_LENGTH ] = .NAM [ NAMSB ESL J]; 
3 260 90 STRING-DESC { DSCSA-POINTER } = .NAM C NAMSC_ESA } 
3 61 91 END 

3 o¢ 3 

; 26 9 ! If all else fails use the name string 

3 64 94 ! 

3 65 95 ELSE 

3 08 beoe BEGIN 

3 6 9 STRING_DESC ‘ DSCSW_LENGTH ) = .FAB C FABSB_FNS J: 
: 268 0498 STRING-DESC C DSCSALPOINTER ) = .FAB C FABSC_FNA 3 
: $93 0500 2m: 

: 271 44 ! Signal the RMS error and stop. NOTE: During the open the fab will have 
; g b208 correct convert error code. The rms_block will have the rms error code 
3 74 504 SIGNAL _STOP( c C FABSL_CTX J,1,STRING_DESC, 

>: 275 505 RMS_BLOCK FABSL “sts 

3 7 208 RMS “BLOCK FABSL~ STV *) 

s aT 50 

: 78 508 END; 


000¢ 900 .ENTRY CONVSSRMS_OPEN_ERROR, Save R2.R3 
53 0090" CF i 000 MOVAB STRING DESC, R 
é 4 AC p 000 MOVL 4(AST BLOCKS, RMS_BLOCK 
0 62 91 00008 CMPB = (RMS_ BLOCK), #1 
06 12 O000E BNEQ ‘18 


5 

¢ RROR VAX=11 CONVERT ib-sa -1984 23:55: AX-11 Bliss-32 V4.0-742 Pa 9 
| CONVSSRMS_OPEN_ERROR 12-08-1938 93:73:34 E CONV. SRC CONVERROR.B32; 1 9 55 
| 51 3c OCA 00 10 MOVL (RMS_BLOCK), FAB 3 04665 

| : 14 BRB : 
1 D if I$: MOVL $RMS_BLOCK, FAB + 0467 
0 28 A p 19 28: MOVL O(FAB), NAM + 0471 
AO 1 TST (NAM) : 0477 

| 1 BEQ 3 
63 93 A 98 MOVZBW 3(NAM), STRING_DESC F 0480 
06 A A ot 6 MOVL 4 NAM) STRING. DESC +4 + 0481 
0B Ad 73 3$ IsTB 1 cnan) + 04686 
63 08 A 99 MOV7BW 11(NAM), STRING_DESC + 0489 
046 A C A p 0 MOVL ‘a, STRING-DESC+4 + 0490 

63 4 Al 98 6 4$ MOVZBW 3 (FAB), STRING_DESC : 

06 A c Al p 041 VL 44(FAB), STRING DESC +4 : 

7E a D 00046 5$ 8(RM Ck), =TSP) : 

53 DD A we : 

01 DD 0004C SHL #1 : 

Al 0D 24 F 

0S FB rT : 

04 00 ; 


| 
| 
| 
dy 
Pa 0497 
), 0498 
mova $_BLO t 0505 
004 oa 0504 
18 004E PUSHL (FAB) : 
00000000G 00 0051 CALLS . LIBSSTOP ; 
058 RET 0508 
; Routine Size: 89 bytes, Routine Base: SCODE$ + 0059 
; 2 0509 1 
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ONVERT Ses -1984 23:55:37 AX-11 Bliss-32 V4.0-74 
$ READ ERROR 1e-88p-198e 93:38:85} EeSnv sRedESnucRNGRcasoe 
ZSBTTL ‘CONVSSRMS nee ERROR’ 
GLOBAL ROUTINE CONVSSRAS_READ_ERROR : NOVALUE = 


' 
Functional Description: 


This routine will signal an rms error and stop execution if the RMS 
error is NOT end of file. It is to be used for detecting errors 
during rms SGETs or SREADs. 

Calling Sequence: 

This routine is call as an AST by RMS 

Input Parameters: 

AST argument block which has a pointer to a RAB 


Implicit Inputs: 
none 


none 
Implicit Outputs: 
none 
Routine Value: 
none 
Routines Called: 
SIGNAL 
SIGNAL_STOP 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; Output Parameters: 
i 
i 
i 
i 
i 
i 
i 
i 

i 

i 

i 

i 
: Side Effects: 
} none 
eo 


BEGIN 
BUILTIN 
AP; 
BIND 
AST_BLOCK 
LOCAL 
R 


AP : REF VECTOR C ,LONG J; 


FAB : REF BLOCK ( -BYTE 
NAM : REF BLOCK € [BYTE 


: Get the rab (Pointer to by the second ast parameter) 
RAB = .AST_BLOCK ( 1 J; 


° 


AB : REF BLOCK -BYTE ) 


| 
| 
| 
| 
| 
| 
| 
| 


5 
C RROR VAK-11 CONVERT 18-5 -1984 23:55: AX-11 Bliss-32 v4.0-74 
CONVSSRMS_READ_ERROR 1278 08-1 3b $3:33:3¢ CONV. SRCICO venNOR Boo. 
67 : If this is only an end of file then return 


if hee C RABSL_STS ] EQLU RMSS_EOF 
RETURN; 
: Now get the fab it points to 
FAB = .RAB C RABSL_FAB J; 
: Get the name block 
NAM = .FAB C FABSL_NAM J; 
Signal the CONVert error with the best file name string 


URW OORNONR NOD 


; First try the resultant string 
if .NAM C NAMSB_RSL J] NEQU 0 
THEN 


Sie waaladese 


BEGIN 
STRING_DESC [ DSCSW_LENGTH J] = .NAM C_NAMSB_RSL J: 
STRING_DESC DSCSA_POINTER ] = .NAM C NAMSC_RSA } 


SSRIS AEAN ES SSNS AR Oe 


ODOQOOCGCGCOCOCOCOCOCOCOCOOOOOCOOOOOOOOOOOOOOe 


Ab Ab Ab Ah Ab Ah Ab Ab Ab Ab Ab Ab Ab db db db db Ab db dh hh db hh dh chb db hb dh hh db ab hb dl 


Be Se Se Se Be Ge Be Se Se Se Se Se Ge Se Se Ge Gs Se Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge 


8 
9 
: 1 
§ 4 } Next try the expanded string 
5 94 ELSE IF .NAM C NAMSB_ESL J NEQU 0 
95 THEN 
7 96 BEGIN 
8 9 STRING_DESC f DSC$W_LENGTH ] = .NAM C_NAMSB_ESL J; 
9 98 STRING_DESC DSCSA-POINTER ] = .NAM C NAMSC_ESA J 
0600 
se : If all else fails use the name string 
060 ELSE 
0604 BEGIN 
9605 STRING_DESC C DSC$W_LENGTH J] = .FAB C FABSB_FNS ); 
9606 STRING_DESC C DSCSA-POINTER J = .FAB C FABSC_FNA J 
0608 r 
+44 Signal the RMS error and stop 
bers SIGNAL_STOP( .RAB [ RABSL_CTX ],1,STRING_DESC, 
0618 -RAB C FABSL"STS J, 
1 -RAB C FABSLSTV } ) 
0614 
0615 END; 


000¢ 000 .ENTRY CONVSSRMS_READ_ERROR, Save R2,R3 
53 0000" CF 9€ 0000 MOVAB STRING DESC 
2 04 AC 00 0000 MOVL 4 (AST_BLOCKS, RAB 


; 0511 
> 0565 


‘-—-- —— 


r RROR 


89 bytes, 
g 1 
0617 O END 


| 

| 

; Routine Size: 

; 3587 061 
; 388 

. Name 
| 


SOWNS 
SCODES 


File 


Sahiet 


VAK=11 CONVERT 
CONVSSRMS_READ_ERROR 


-$255$0UA28: (SYSLIBILIB.L32;1 


H 5 
15-Sep-1 755: AX-11 Blis 
12-808-}9Re 93:73:85 CONV.SRCIC 
0001827A =F 08 iA ° CMPL 8(RAB), #98938 
4 1 BEQL 4 
2} Ad 0 1 MOVL 60(RAB), FAB 
0 a 3 1 MOVL (FAB), NAM 
AO 1 TST8 (NAM) 
1 rout $ 
6 3.0C«< A MOVZBW 3(NAM), STRING_DES 
06 =#A 4 . p pout pepe. STRING_DES 
0B a0 +f D 1$: TSTB 11 (NAM) 
0B 1 0 BEQL ¢ 
63 ge A 8 3 MOVZBW 11(NAM), STRING_DE 
04 C + S oes ns STRING_DE 
H 34~—CiCAST 4 4 38 2s: MOVZ7BW $3¢FA8), STRING_DE 
06 =A C «(Al 4 0041 MOVL 44(FAB), STRING_DE 
8 «OA D 00046 3$ mova 8(RAB), =(SP) 
53 0D ganee PUSHL R3 
01 dD 0004C PUSHL #1 
18 <A2 OD OO004E PUSHL 24(RAB) 
000000006 00 05 FB Bees CALLS #5, LIBSSTOP 
04 00058 4$: RET 
Routine Base: SCODES + 0082 
ELUDOM 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
7 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALI 
267 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALI 
Library Statistics 
ececcecce Symbols eeeceoon Pages Processing 
Total Loaded Percent Mapped Time 
18619 19 0 1000 00:01.8 


-32 V 
ONVERKO 


0615 


pana esac 


¢ ROR VAK-11 CONVERT we ep-1 :55: AX-11 Bliss-32 V4.0- 

viva 4 CONVSSRMS _READ_ERROR 1argeR=}S8 §3:73i85 «= FeONy SBE ESndeaNGa esse 
3 COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=L1S$:CONVERROR/OBJ=O0BJ$:CONVERROR MSRC$: CONVERROR/UPDATE=(ENHS$: CONVERROR) 
3; Size: 267 + 8 data bytes 

i Runvitme: p08. ‘ 

. $s me: 

3 Lines/CPU Min: $33" 

3; Lexemes/CPU-Min: 20877 

; Memor Tout Used: 79 pages 

; Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 
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